program Pointer;

{$APPTYPE CONSOLE}

uses
  SysUtils;
type
  intArray = array [0..99] of integer;
var
  a:^intArray;
  i: Integer;

begin
  new(a);
  for i:=0 to 99 do
  a[i]:=i+1;
  dispose(a);
end.
